home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 60 / 060.d81 / aerohawk boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  29 lines
  1. 10 print"[147][129]","[193] [197][210][207][160][200][193][215] [203]":poke53281,0:poke53280,0:gosub61000
  2. 11 a(0)=1:a(1)=15:a(2)=12:a(3)=11:a(4)=11:a(5)=12:a(6)=12
  3. 20 a$="[221][157][157][157][157][221]":b$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  4. 30 b$=b$+a$+a$+a$+a$+a$+a$+a$+a$+a$
  5. 40 b$=b$+"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":print""b$
  6. 50 print,"[157][208][210][197][211][211][160][211][208][193][195][197][160][212][207][160][195][207][206][212][201][206][213][197]"
  7. 60 print"[155] [193][160][197][160][210][160][207][160][200][160][193][160][215][160][203][160][160][160][199][160][193][160][205][160][197][160][160][160][208][160][204][160][193][160][206]"
  8. 70 print"[156][193]void the other ships.  [212]ry to"
  9. 80 print"drop a bomb on the drone moving"
  10. 90 print"along the bottom of the screen."
  11. 100 print"[217]ou must strike the energy drone"
  12. 110 print"in order to maintain your energy."
  13. 120 print"[194]ombing ships will increase score.[155]":ti$="000000"
  14. 130 geta$:c=c+.4:ifc>6thenc=0
  15. 135 ifval(ti$)>30thena$=" "
  16. 140 poke646,a(c):printb$:ifa$<>" "then130
  17. 150 print"             [204][160][207][160][193][160][196][160][201][160][206][160][199]              "
  18. 60020 poke46,28:poke48,27:poke50,27:poke52,128:clr:load"aerohawk",8
  19. 61000 poke214,15:print:print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
  20. 61130 fori=1to3:print"                                      ":next
  21. 61150 print"        [208]ublished on [204][207][193][196][211][212][193][210] #60     "
  22. 61160 print"      [211]ubscriptions 1-800-831-2694    "
  23. 61170 print"     [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204]  "
  24. 61180 print"                                      "
  25. 61190 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  26. 61200 au$="[193] [197][160][210][160][207][160][200][160][193][160][215][160][203]":poke214,17:print:printspc(20-len(au$)/2)"[152]"au$
  27. 61210 au$="[194]y [202]. [195]. [200]ilty  ([195]) 1989":poke214,18:print
  28. 61220 printspc(20-len(au$)/2)"[152]"au$"":return
  29.